Public Class FormPermissionAED
    Dim empid As Integer
    Private Sub FormPermissionAED_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cboSex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEmployee.SelectedIndexChanged
        Dim group As EmployeeInfo = CType(cboEmployee.SelectedItem, EmployeeInfo)
        empid = group.EmployeeId

    End Sub
    Private Sub LoadName()
        For Each obj As Object In GetEmployeeName.GetEmployee.Values
            cboEmployee.Items.Add(obj)
        Next
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Dbinterface.OpenConnection()
        LoadName()
    End Sub
End Class